﻿Imports Tohto.Web.BLL
Imports Tohto.Base.Entity

Public Class RP0020P01

    Public Function printdoc(ByVal I_VC_KOJI_NO As String, _
                             ByVal I_NM_TEHAI_NO As Integer, _
                             ByVal I_NM_ROW_NO As Integer, _
                             ByRef erroinfo As PLSQLErrorInfo) As DataTable
        Dim RP0020B1 As New RP0020B01

        'I_VC_KOJI_NO=工事No.
        'I_NM_TEHAI_NO=手配No.
        'I_NM_ROW_NO=行No.
        Dim dtGetData As DataTable = RP0020B1.Fecth_List(I_VC_KOJI_NO, _
                                                         I_NM_TEHAI_NO, _
                                                         I_NM_ROW_NO, _
                                                         erroinfo)
        Return dtGetData

    End Function
End Class
